/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / FaceStorMP.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 46 61 63 65 53 74 | 6f 72 4d 50 2e 70 00 00 |..FaceSt|orMP.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 00 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 17 87 00 | 00 01 7e a9 9a be 1e a9 |........|..~.....|
|00000060| 9a be 1e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ad f0 00 00 |........|........|
|00000080| 7b 46 61 63 65 57 61 72 | 65 20 32 2e 32 33 20 43 |{FaceWar|e 2.23 C|
|00000090| 6f 6d 6d 61 6e 64 73 20 | 26 20 47 6c 6f 62 61 6c |ommands |& Global|
|000000a0| 20 52 65 63 6f 72 64 7d | 0d 7b a9 46 61 63 65 57 | Record}|.{.FaceW|
|000000b0| 61 72 65 20 31 39 38 39 | 2d 39 34 2e 20 20 41 6c |are 1989|-94.  Al|
|000000c0| 6c 20 52 69 67 68 74 73 | 20 52 65 73 65 72 76 65 |l Rights| Reserve|
|000000d0| 64 2e 7d 0d 0d 7b 43 6f | 6d 70 69 6c 65 72 20 42 |d.}..{Co|mpiler B|
|000000e0| 75 67 3f 20 20 22 73 69 | 67 6e 65 64 42 79 74 65 |ug?  "si|gnedByte|
|000000f0| 22 20 61 6e 64 20 22 73 | 74 79 6c 65 22 20 74 79 |" and "s|tyle" ty|
|00000100| 70 65 73 20 63 6f 6e 73 | 75 6d 65 20 32 20 62 79 |pes cons|ume 2 by|
|00000110| 74 65 73 2c 7d 0d 7b 73 | 6f 20 6e 65 65 64 65 64 |tes,}.{s|o needed|
|00000120| 20 74 6f 20 72 65 70 6c | 61 63 65 20 77 69 74 68 | to repl|ace with|
|00000130| 20 22 62 6f 6f 6c 65 61 | 6e 22 20 74 79 70 65 20 | "boolea|n" type |
|00000140| 74 68 72 6f 75 67 68 6f | 75 74 20 66 52 65 63 20 |througho|ut fRec |
|00000150| 72 65 63 6f 72 64 7d 0d | 0d 75 6e 69 74 20 46 61 |record}.|.unit Fa|
|00000160| 63 65 53 74 6f 72 4d 50 | 3b 0d 0d 69 6e 74 65 72 |ceStorMP|;..inter|
|00000170| 66 61 63 65 0d 0d 09 75 | 73 65 73 0d 09 09 51 75 |face...u|ses...Qu|
|00000180| 69 63 6b 44 72 61 77 2c | 20 4d 65 6e 75 73 2c 20 |ickDraw,| Menus, |
|00000190| 45 76 65 6e 74 73 2c 20 | 46 69 6c 65 73 2c 20 43 |Events, |Files, C|
|000001a0| 6f 6e 74 72 6f 6c 73 3b | 0d 0d 09 63 6f 6e 73 74 |ontrols;|...const|
|000001b0| 0d 09 09 44 6f 49 6e 69 | 74 20 3d 20 2d 36 31 3b |...DoIni|t = -61;|
|000001c0| 0d 09 09 44 6f 50 72 65 | 70 20 3d 20 2d 36 32 3b |...DoPre|p = -62;|
|000001d0| 0d 7b 46 61 63 65 49 74 | 20 63 6f 6d 6d 61 6e 64 |.{FaceIt| command|
|000001e0| 73 7d 0d 09 09 44 6f 4c | 6f 6f 70 20 3d 20 30 3b |s}...DoL|oop = 0;|
|000001f0| 0d 09 09 44 6f 45 76 6e | 74 20 3d 20 2d 35 31 3b |...DoEvn|t = -51;|
|00000200| 0d 09 09 44 6f 4d 65 6e | 75 20 3d 20 2d 35 32 3b |...DoMen|u = -52;|
|00000210| 0d 09 09 47 65 74 4d 73 | 67 20 3d 20 2d 35 35 3b |...GetMs|g = -55;|
|00000220| 0d 7b 56 69 65 77 49 74 | 20 63 6f 6d 6d 61 6e 64 |.{ViewIt| command|
|00000230| 73 7d 0d 09 09 44 6f 55 | 70 64 74 32 20 3d 20 2d |s}...DoU|pdt2 = -|
|00000240| 35 33 3b 0d 09 09 44 6f | 55 70 64 74 20 3d 20 2d |53;...Do|Updt = -|
|00000250| 35 33 3b 0d 09 09 44 6f | 55 6e 6c 64 20 3d 20 2d |53;...Do|Unld = -|
|00000260| 36 33 3b 0d 09 09 43 68 | 67 43 75 72 20 3d 20 31 |63;...Ch|gCur = 1|
|00000270| 32 31 3b 0d 09 09 50 73 | 74 45 76 74 20 3d 20 31 |21;...Ps|tEvt = 1|
|00000280| 32 32 3b 0d 09 09 50 6f | 70 4d 65 6e 20 3d 20 31 |22;...Po|pMen = 1|
|00000290| 32 33 3b 0d 09 09 50 73 | 74 4e 6f 74 20 3d 20 31 |23;...Ps|tNot = 1|
|000002a0| 32 34 3b 0d 09 09 53 65 | 74 49 64 6c 20 3d 20 31 |24;...Se|tIdl = 1|
|000002b0| 33 31 3b 0d 09 09 45 6e | 64 49 64 6c 20 3d 20 31 |31;...En|dIdl = 1|
|000002c0| 33 32 3b 0d 09 09 53 68 | 6f 41 6c 74 20 3d 20 31 |32;...Sh|oAlt = 1|
|000002d0| 35 33 3b 0d 09 09 53 74 | 70 41 6c 74 20 3d 20 31 |53;...St|pAlt = 1|
|000002e0| 35 34 3b 0d 09 09 4e 6f | 74 41 6c 74 20 3d 20 31 |54;...No|tAlt = 1|
|000002f0| 35 35 3b 0d 09 09 43 74 | 6e 41 6c 74 20 3d 20 31 |55;...Ct|nAlt = 1|
|00000300| 35 36 3b 0d 09 09 53 65 | 74 49 74 6d 31 20 3d 20 |56;...Se|tItm1 = |
|00000310| 31 36 30 3b 0d 09 09 53 | 65 74 49 74 6d 32 20 3d |160;...S|etItm2 =|
|00000320| 20 31 36 31 3b 0d 09 09 | 53 65 74 49 74 6d 20 3d | 161;...|SetItm =|
|00000330| 20 31 36 31 3b 0d 09 09 | 47 65 74 49 74 6d 20 3d | 161;...|GetItm =|
|00000340| 20 31 36 32 3b 0d 09 09 | 46 69 78 46 53 43 20 3d | 162;...|FixFSC =|
|00000350| 20 31 36 33 3b 0d 09 09 | 53 65 6c 46 53 43 20 3d | 163;...|SelFSC =|
|00000360| 20 31 36 34 3b 0d 09 09 | 43 68 6b 4d 65 6d 20 3d | 164;...|ChkMem =|
|00000370| 20 31 37 31 3b 0d 09 09 | 4e 65 77 42 6c 6b 20 3d | 171;...|NewBlk =|
|00000380| 20 31 37 32 3b 0d 09 09 | 50 72 67 43 6d 64 20 3d | 172;...|PrgCmd =|
|00000390| 20 31 37 33 3b 0d 09 09 | 47 65 74 46 67 43 20 3d | 173;...|GetFgC =|
|000003a0| 20 31 37 38 3b 0d 09 09 | 47 65 74 42 6b 43 20 3d | 178;...|GetBkC =|
|000003b0| 20 31 37 39 3b 0d 09 09 | 53 65 74 46 67 43 20 3d | 179;...|SetFgC =|
|000003c0| 20 31 38 30 3b 0d 09 09 | 53 65 74 42 6b 43 20 3d | 180;...|SetBkC =|
|000003d0| 20 31 38 31 3b 0d 09 09 | 53 65 74 46 53 53 20 3d | 181;...|SetFSS =|
|000003e0| 20 31 38 33 3b 0d 09 09 | 53 65 74 50 61 6c 32 20 | 183;...|SetPal2 |
|000003f0| 3d 20 31 38 35 3b 0d 09 | 09 53 65 74 50 61 6c 20 |= 185;..|.SetPal |
|00000400| 3d 20 31 38 35 3b 0d 09 | 09 53 74 64 4f 70 6e 20 |= 185;..|.StdOpn |
|00000410| 3d 20 32 30 31 3b 0d 09 | 09 53 74 64 53 61 76 20 |= 201;..|.StdSav |
|00000420| 3d 20 32 30 32 3b 0d 09 | 09 47 65 74 52 65 66 20 |= 202;..|.GetRef |
|00000430| 3d 20 32 30 35 3b 0d 09 | 09 53 65 74 52 65 66 20 |= 205;..|.SetRef |
|00000440| 3d 20 32 30 36 3b 0d 09 | 09 53 65 74 54 79 70 20 |= 206;..|.SetTyp |
|00000450| 3d 20 32 30 38 3b 0d 09 | 09 53 6e 64 42 68 64 20 |= 208;..|.SndBhd |
|00000460| 3d 20 32 35 30 3b 0d 09 | 09 47 65 74 4e 61 6d 20 |= 250;..|.GetNam |
|00000470| 3d 20 32 35 31 3b 0d 09 | 09 53 65 74 4e 61 6d 20 |= 251;..|.SetNam |
|00000480| 3d 20 32 35 32 3b 0d 09 | 09 4d 6f 76 52 65 63 20 |= 252;..|.MovRec |
|00000490| 3d 20 32 35 34 3b 0d 09 | 09 4d 6f 76 41 6c 74 20 |= 254;..|.MovAlt |
|000004a0| 3d 20 32 35 35 3b 0d 09 | 09 4d 6f 76 44 6c 67 20 |= 255;..|.MovDlg |
|000004b0| 3d 20 32 35 36 3b 0d 09 | 09 4d 6f 76 57 69 6e 20 |= 256;..|.MovWin |
|000004c0| 3d 20 32 35 37 3b 0d 09 | 09 44 72 67 57 6e 64 20 |= 257;..|.DrgWnd |
|000004d0| 3d 20 32 35 39 3b 0d 09 | 09 53 68 6f 53 74 72 20 |= 259;..|.ShoStr |
|000004e0| 3d 20 32 36 31 3b 0d 09 | 09 53 74 70 53 74 72 20 |= 261;..|.StpStr |
|000004f0| 3d 20 32 36 32 3b 0d 09 | 09 4e 6f 74 53 74 72 20 |= 262;..|.NotStr |
|00000500| 3d 20 32 36 33 3b 0d 09 | 09 43 74 6e 53 74 72 20 |= 263;..|.CtnStr |
|00000510| 3d 20 32 36 34 3b 0d 09 | 09 47 65 74 53 74 64 20 |= 264;..|.GetStd |
|00000520| 3d 20 33 30 31 3b 0d 09 | 09 53 65 74 53 74 64 20 |= 301;..|.SetStd |
|00000530| 3d 20 33 30 32 3b 0d 09 | 09 53 61 76 44 6c 67 20 |= 302;..|.SavDlg |
|00000540| 3d 20 33 35 36 3b 0d 09 | 09 53 61 76 57 69 6e 20 |= 356;..|.SavWin |
|00000550| 3d 20 33 35 37 3b 0d 09 | 09 53 65 74 53 75 62 20 |= 357;..|.SetSub |
|00000560| 3d 20 34 35 31 3b 0d 09 | 09 54 72 6d 53 74 72 20 |= 451;..|.TrmStr |
|00000570| 3d 20 34 35 32 3b 0d 09 | 09 53 65 74 50 72 6d 20 |= 452;..|.SetPrm |
|00000580| 3d 20 34 35 33 3b 0d 09 | 09 43 6e 76 53 74 72 20 |= 453;..|.CnvStr |
|00000590| 3d 20 34 35 34 3b 0d 09 | 09 46 6e 64 54 78 74 20 |= 454;..|.FndTxt |
|000005a0| 3d 20 34 35 35 3b 0d 09 | 09 4e 75 6d 54 6f 53 20 |= 455;..|.NumToS |
|000005b0| 3d 20 34 37 31 3b 0d 09 | 09 53 54 6f 4e 75 6d 20 |= 471;..|.SToNum |
|000005c0| 3d 20 34 38 31 3b 0d 09 | 09 47 65 74 53 74 72 20 |= 481;..|.GetStr |
|000005d0| 3d 20 34 39 31 3b 0d 09 | 09 53 65 74 53 74 72 20 |= 491;..|.SetStr |
|000005e0| 3d 20 34 39 32 3b 0d 09 | 09 53 72 74 4c 73 74 20 |= 492;..|.SrtLst |
|000005f0| 3d 20 34 39 33 3b 0d 09 | 09 44 75 70 4c 73 74 20 |= 493;..|.DupLst |
|00000600| 3d 20 34 39 34 3b 0d 09 | 09 41 64 64 56 65 77 20 |= 494;..|.AddVew |
|00000610| 3d 20 2d 31 32 30 30 3b | 0d 09 09 4e 65 77 57 6e |= -1200;|...NewWn|
|00000620| 64 20 3d 20 2d 31 32 30 | 31 3b 0d 09 09 45 6e 64 |d = -120|1;...End|
|00000630| 57 6e 64 20 3d 20 2d 31 | 32 30 32 3b 0d 09 09 4d |Wnd = -1|202;...M|
|00000640| 64 6c 57 6e 64 20 3d 20 | 2d 31 32 30 33 3b 0d 09 |dlWnd = |-1203;..|
|00000650| 09 53 69 7a 57 6e 64 20 | 3d 20 2d 31 32 30 34 3b |.SizWnd |= -1204;|
|00000660| 0d 09 09 4d 6f 76 57 6e | 64 20 3d 20 2d 31 32 30 |...MovWn|d = -120|
|00000670| 35 3b 0d 09 09 53 68 6f | 57 6e 64 20 3d 20 2d 31 |5;...Sho|Wnd = -1|
|00000680| 32 30 36 3b 0d 09 09 48 | 69 64 57 6e 64 20 3d 20 |206;...H|idWnd = |
|00000690| 2d 31 32 30 37 3b 0d 09 | 09 47 65 74 57 56 43 20 |-1207;..|.GetWVC |
|000006a0| 3d 20 2d 31 32 30 38 3b | 0d 09 09 47 65 74 57 6e |= -1208;|...GetWn|
|000006b0| 64 20 3d 20 2d 31 32 30 | 39 3b 0d 09 09 4c 6e 6b |d = -120|9;...Lnk|
|000006c0| 43 74 6c 20 3d 20 2d 31 | 32 31 30 3b 0d 09 09 47 |Ctl = -1|210;...G|
|000006d0| 65 74 43 74 6c 20 3d 20 | 2d 31 32 31 31 3b 0d 09 |etCtl = |-1211;..|
|000006e0| 09 53 68 6f 43 74 6c 20 | 3d 20 2d 31 32 31 32 3b |.ShoCtl |= -1212;|
|000006f0| 0d 09 09 47 65 74 56 61 | 6c 20 3d 20 2d 31 32 31 |...GetVa|l = -121|
|00000700| 33 3b 0d 09 09 53 65 74 | 56 61 6c 20 3d 20 2d 31 |3;...Set|Val = -1|
|00000710| 32 31 34 3b 0d 09 09 4f | 76 72 43 74 6c 20 3d 20 |214;...O|vrCtl = |
|00000720| 2d 31 32 31 35 3b 0d 09 | 09 41 64 64 43 74 6c 20 |-1215;..|.AddCtl |
|00000730| 3d 20 2d 31 32 31 36 3b | 0d 09 09 44 72 77 43 74 |= -1216;|...DrwCt|
|00000740| 6c 20 3d 20 2d 31 32 31 | 37 3b 0d 09 09 53 63 72 |l = -121|7;...Scr|
|00000750| 43 74 6c 20 3d 20 2d 31 | 32 31 38 3b 0d 09 09 41 |Ctl = -1|218;...A|
|00000760| 63 74 43 74 6c 20 3d 20 | 2d 31 32 31 39 3b 0d 09 |ctCtl = |-1219;..|
|00000770| 09 53 65 6c 43 74 6c 20 | 3d 20 2d 31 32 32 30 3b |.SelCtl |= -1220;|
|00000780| 0d 09 09 44 73 70 43 74 | 6c 20 3d 20 2d 31 32 32 |...DspCt|l = -122|
|00000790| 31 3b 0d 09 09 53 74 6c | 43 74 6c 20 3d 20 2d 31 |1;...Stl|Ctl = -1|
|000007a0| 32 32 32 3b 0d 09 09 53 | 61 76 43 74 6c 20 3d 20 |222;...S|avCtl = |
|000007b0| 2d 31 32 32 33 3b 0d 09 | 09 53 61 76 57 6e 64 20 |-1223;..|.SavWnd |
|000007c0| 3d 20 2d 31 32 32 34 3b | 0d 09 09 53 69 7a 43 74 |= -1224;|...SizCt|
|000007d0| 6c 20 3d 20 2d 31 32 32 | 35 3b 0d 09 09 4d 6f 76 |l = -122|5;...Mov|
|000007e0| 43 74 6c 20 3d 20 2d 31 | 32 32 36 3b 0d 09 09 43 |Ctl = -1|226;...C|
|000007f0| 6c 72 43 74 6c 20 3d 20 | 2d 31 32 32 37 3b 0d 09 |lrCtl = |-1227;..|
|00000800| 09 53 65 74 56 43 6f 64 | 20 3d 20 2d 31 32 32 38 |.SetVCod| = -1228|
|00000810| 3b 0d 09 09 53 65 74 49 | 6e 66 6f 20 3d 20 2d 31 |;...SetI|nfo = -1|
|00000820| 32 32 38 3b 0d 09 09 48 | 6c 70 57 6e 64 20 3d 20 |228;...H|lpWnd = |
|00000830| 2d 31 32 32 39 3b 0d 09 | 09 48 69 74 43 74 6c 20 |-1229;..|.HitCtl |
|00000840| 3d 20 2d 31 32 33 30 3b | 0d 0d 09 74 79 70 65 0d |= -1230;|...type.|
|00000850| 7b 47 6c 6f 62 61 6c 20 | 56 69 65 77 49 74 20 72 |{Global |ViewIt r|
|00000860| 65 63 6f 72 64 7d 0d 09 | 09 46 61 63 65 50 74 72 |ecord}..|.FacePtr|
|00000870| 20 3d 20 5e 46 61 63 65 | 52 65 63 3b 0d 09 09 46 | = ^Face|Rec;...F|
|00000880| 61 63 65 52 65 63 20 3d | 20 72 65 63 6f 72 64 0d |aceRec =| record.|
|00000890| 7b 70 72 6f 67 72 61 6d | 2d 77 69 64 65 20 69 6e |{program|-wide in|
|000008a0| 66 6f 7d 0d 09 09 09 09 | 66 48 65 61 64 3a 20 61 |fo}.....|fHead: a|
|000008b0| 72 72 61 79 5b 31 2e 2e | 38 5d 20 6f 66 20 69 6e |rray[1..|8] of in|
|000008c0| 74 65 67 65 72 3b 0d 09 | 09 09 09 66 4f 66 66 50 |teger;..|...fOffP|
|000008d0| 6f 72 74 3a 20 47 72 61 | 66 50 74 72 3b 0d 09 09 |ort: Gra|fPtr;...|
|000008e0| 09 09 66 43 4f 66 66 50 | 6f 72 74 3a 20 47 72 61 |..fCOffP|ort: Gra|
|000008f0| 66 50 74 72 3b 0d 09 09 | 09 09 66 41 63 74 69 76 |fPtr;...|..fActiv|
|00000900| 65 57 6e 64 3a 20 57 69 | 6e 64 6f 77 50 74 72 3b |eWnd: Wi|ndowPtr;|
|00000910| 0d 09 09 09 09 66 41 63 | 74 69 76 65 52 65 63 3a |.....fAc|tiveRec:|
|00000920| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 09 09 66 41 | longint|;.....fA|
|00000930| 63 74 69 76 65 49 44 3a | 20 69 6e 74 65 67 65 72 |ctiveID:| integer|
|00000940| 3b 0d 09 09 09 09 66 41 | 63 74 69 76 65 52 65 73 |;.....fA|ctiveRes|
|00000950| 49 44 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |ID: inte|ger;....|
|00000960| 09 66 4d 73 67 43 6f 75 | 6e 74 3a 20 69 6e 74 65 |.fMsgCou|nt: inte|
|00000970| 67 65 72 3b 0d 09 09 09 | 09 66 46 6c 61 67 73 3a |ger;....|.fFlags:|
|00000980| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 09 09 66 53 | longint|;.....fS|
|00000990| 74 75 66 66 3a 20 50 74 | 72 3b 0d 09 09 09 09 66 |tuff: Pt|r;.....f|
|000009a0| 48 65 61 70 42 75 66 66 | 3a 20 6c 6f 6e 67 69 6e |HeapBuff|: longin|
|000009b0| 74 3b 0d 09 09 09 09 66 | 45 6e 76 46 6c 61 67 73 |t;.....f|EnvFlags|
|000009c0| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 09 09 66 |: longin|t;.....f|
|000009d0| 53 6c 65 65 70 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |Sleep: l|ongint;.|
|000009e0| 09 09 09 09 66 53 63 72 | 65 65 6e 52 65 63 74 3a |....fScr|eenRect:|
|000009f0| 20 52 65 63 74 3b 0d 09 | 09 09 09 66 44 72 61 67 | Rect;..|...fDrag|
|00000a00| 52 65 63 74 3a 20 52 65 | 63 74 3b 0d 09 09 09 09 |Rect: Re|ct;.....|
|00000a10| 66 46 72 6f 6e 74 53 6c | 65 65 70 3a 20 6c 6f 6e |fFrontSl|eep: lon|
|00000a20| 67 69 6e 74 3b 0d 09 09 | 09 09 66 42 61 63 6b 53 |gint;...|..fBackS|
|00000a30| 6c 65 65 70 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |leep: lo|ngint;..|
|00000a40| 09 09 09 66 46 69 6c 6c | 65 72 31 3a 20 69 6e 74 |...fFill|er1: int|
|00000a50| 65 67 65 72 3b 0d 09 09 | 09 09 66 53 74 64 42 6c |eger;...|..fStdBl|
|00000a60| 6f 63 6b 3a 20 48 61 6e | 64 6c 65 3b 0d 09 09 09 |ock: Han|dle;....|
|00000a70| 09 66 53 74 64 43 6f 75 | 6e 74 3a 20 69 6e 74 65 |.fStdCou|nt: inte|
|00000a80| 67 65 72 3b 0d 09 09 09 | 09 66 53 79 73 45 6e 76 |ger;....|.fSysEnv|
|00000a90| 41 72 72 3a 20 61 72 72 | 61 79 5b 31 2e 2e 38 5d |Arr: arr|ay[1..8]|
|00000aa0| 20 6f 66 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 | of inte|ger;....|
|00000ab0| 09 66 41 70 70 6c 56 52 | 65 66 3a 20 69 6e 74 65 |.fApplVR|ef: inte|
|00000ac0| 67 65 72 3b 0d 09 09 09 | 09 66 43 72 65 61 74 6f |ger;....|.fCreato|
|00000ad0| 72 3a 20 4f 53 54 79 70 | 65 3b 0d 09 09 09 09 66 |r: OSTyp|e;.....f|
|00000ae0| 52 65 66 43 6f 6e 3a 20 | 6c 6f 6e 67 69 6e 74 3b |RefCon: |longint;|
|00000af0| 0d 09 09 09 09 66 46 69 | 6c 6c 65 72 32 3a 20 61 |.....fFi|ller2: a|
|00000b00| 72 72 61 79 5b 31 2e 2e | 37 5d 20 6f 66 20 69 6e |rray[1..|7] of in|
|00000b10| 74 65 67 65 72 3b 0d 09 | 09 09 09 66 43 75 72 73 |teger;..|...fCurs|
|00000b20| 6f 72 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |or: inte|ger;....|
|00000b30| 09 66 46 6f 6e 74 4d 65 | 6e 75 3a 20 4d 65 6e 75 |.fFontMe|nu: Menu|
|00000b40| 48 61 6e 64 6c 65 3b 0d | 09 09 09 09 66 53 69 7a |Handle;.|....fSiz|
|00000b50| 65 4d 65 6e 75 3a 20 4d | 65 6e 75 48 61 6e 64 6c |eMenu: M|enuHandl|
|00000b60| 65 3b 0d 09 09 09 09 66 | 53 74 79 6c 65 4d 65 6e |e;.....f|StyleMen|
|00000b70| 75 3a 20 4d 65 6e 75 48 | 61 6e 64 6c 65 3b 0d 09 |u: MenuH|andle;..|
|00000b80| 09 09 09 66 43 6f 6c 6f | 72 4d 65 6e 75 3a 20 4d |...fColo|rMenu: M|
|00000b90| 65 6e 75 48 61 6e 64 6c | 65 3b 0d 09 09 09 09 66 |enuHandl|e;.....f|
|00000ba0| 46 69 6c 6c 65 72 33 3a | 20 62 6f 6f 6c 65 61 6e |Filler3:| boolean|
|00000bb0| 3b 0d 09 09 09 09 66 49 | 31 45 72 72 3a 20 62 6f |;.....fI|1Err: bo|
|00000bc0| 6f 6c 65 61 6e 3b 0d 09 | 09 09 09 66 49 32 45 72 |olean;..|...fI2Er|
|00000bd0| 72 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |r: integ|er;.....|
|00000be0| 66 49 34 45 72 72 3a 20 | 6c 6f 6e 67 69 6e 74 3b |fI4Err: |longint;|
|00000bf0| 0d 09 09 09 09 66 49 38 | 45 72 72 3a 20 61 72 72 |.....fI8|Err: arr|
|00000c00| 61 79 5b 31 2e 2e 34 5d | 20 6f 66 20 69 6e 74 65 |ay[1..4]| of inte|
|00000c10| 67 65 72 3b 0d 09 09 09 | 09 66 52 34 45 72 72 3a |ger;....|.fR4Err:|
|00000c20| 20 72 65 61 6c 3b 0d 09 | 09 09 09 66 52 38 45 72 | real;..|...fR8Er|
|00000c30| 72 3a 20 61 72 72 61 79 | 5b 31 2e 2e 34 5d 20 6f |r: array|[1..4] o|
|00000c40| 66 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 66 |f intege|r;.....f|
|00000c50| 52 31 30 45 72 72 3a 20 | 61 72 72 61 79 5b 31 2e |R10Err: |array[1.|
|00000c60| 2e 35 5d 20 6f 66 20 69 | 6e 74 65 67 65 72 3b 0d |.5] of i|nteger;.|
|00000c70| 09 09 09 09 66 52 31 32 | 45 72 72 3a 20 61 72 72 |....fR12|Err: arr|
|00000c80| 61 79 5b 31 2e 2e 36 5d | 20 6f 66 20 69 6e 74 65 |ay[1..6]| of inte|
|00000c90| 67 65 72 3b 0d 09 09 09 | 09 66 46 69 6c 6c 65 72 |ger;....|.fFiller|
|00000ca0| 34 3a 20 61 72 72 61 79 | 5b 31 2e 2e 31 30 35 5d |4: array|[1..105]|
|00000cb0| 20 6f 66 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 | of inte|ger;....|
|00000cc0| 09 66 44 72 76 72 37 34 | 30 30 3a 20 50 72 6f 63 |.fDrvr74|00: Proc|
|00000cd0| 50 74 72 3b 0d 09 09 09 | 09 66 4d 42 61 72 48 74 |Ptr;....|.fMBarHt|
|00000ce0| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 09 09 66 |: boolea|n;.....f|
|00000cf0| 44 65 63 50 74 43 68 3a | 20 62 6f 6f 6c 65 61 6e |DecPtCh:| boolean|
|00000d00| 3b 0d 09 09 09 09 66 53 | 79 73 46 4e 75 6d 3a 20 |;.....fS|ysFNum: |
|00000d10| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 66 53 79 |integer;|.....fSy|
|00000d20| 73 46 4e 61 6d 65 3a 20 | 73 74 72 69 6e 67 5b 33 |sFName: |string[3|
|00000d30| 31 5d 3b 0d 09 09 09 09 | 66 57 44 45 46 3a 20 6c |1];.....|fWDEF: l|
|00000d40| 6f 6e 67 69 6e 74 3b 0d | 09 09 09 09 66 47 6c 75 |ongint;.|....fGlu|
|00000d50| 65 44 61 74 61 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |eData: l|ongint;.|
|00000d60| 09 09 09 09 66 57 61 69 | 74 4e 65 78 74 45 76 65 |....fWai|tNextEve|
|00000d70| 6e 74 3a 20 6c 6f 6e 67 | 69 6e 74 3b 0d 09 09 09 |nt: long|int;....|
|00000d80| 09 66 47 65 74 4e 65 77 | 57 69 6e 64 6f 77 3a 20 |.fGetNew|Window: |
|00000d90| 6c 6f 6e 67 69 6e 74 3b | 0d 09 09 09 09 66 47 65 |longint;|.....fGe|
|00000da0| 74 4e 65 77 43 57 69 6e | 64 6f 77 3a 20 6c 6f 6e |tNewCWin|dow: lon|
|00000db0| 67 69 6e 74 3b 0d 09 09 | 09 09 66 44 69 73 70 6f |gint;...|..fDispo|
|00000dc0| 73 65 57 69 6e 64 6f 77 | 3a 20 6c 6f 6e 67 69 6e |seWindow|: longin|
|00000dd0| 74 3b 0d 09 09 09 09 66 | 46 69 6c 6c 65 72 35 3a |t;.....f|Filler5:|
|00000de0| 20 61 72 72 61 79 5b 31 | 2e 2e 34 5d 20 6f 66 20 | array[1|..4] of |
|00000df0| 6c 6f 6e 67 69 6e 74 3b | 0d 09 09 09 09 66 41 63 |longint;|.....fAc|
|00000e00| 74 69 76 65 57 69 6e 64 | 6f 77 3a 20 6c 6f 6e 67 |tiveWind|ow: long|
|00000e10| 69 6e 74 3b 0d 09 09 09 | 09 66 53 65 6c 65 63 74 |int;....|.fSelect|
|00000e20| 57 69 6e 64 6f 77 3a 20 | 6c 6f 6e 67 69 6e 74 3b |Window: |longint;|
|00000e30| 0d 09 09 09 09 66 55 70 | 64 61 74 65 4f 74 68 65 |.....fUp|dateOthe|
|00000e40| 72 3a 20 6c 6f 6e 67 69 | 6e 74 3b 0d 09 09 09 09 |r: longi|nt;.....|
|00000e50| 66 46 69 6c 6c 65 72 36 | 3a 20 61 72 72 61 79 5b |fFiller6|: array[|
|00000e60| 31 2e 2e 39 5d 20 6f 66 | 20 6c 6f 6e 67 69 6e 74 |1..9] of| longint|
|00000e70| 3b 0d 09 09 09 09 66 45 | 76 65 6e 74 3a 20 45 76 |;.....fE|vent: Ev|
|00000e80| 65 6e 74 52 65 63 6f 72 | 64 3b 0d 09 09 09 09 66 |entRecor|d;.....f|
|00000e90| 46 69 6c 6c 65 72 37 3a | 20 61 72 72 61 79 5b 31 |Filler7:| array[1|
|00000ea0| 2e 2e 31 39 30 5d 20 6f | 66 20 69 6e 74 65 67 65 |..190] o|f intege|
|00000eb0| 72 3b 0d 7b 75 74 69 6c | 69 74 79 20 73 63 72 61 |r;.{util|ity scra|
|00000ec0| 74 63 68 20 76 61 72 69 | 61 62 6c 65 73 7d 0d 09 |tch vari|ables}..|
|00000ed0| 09 09 09 75 46 53 53 70 | 65 63 3a 20 46 53 53 70 |...uFSSp|ec: FSSp|
|00000ee0| 65 63 3b 0d 09 09 09 09 | 75 48 65 61 64 3a 20 61 |ec;.....|uHead: a|
|00000ef0| 72 72 61 79 5b 31 2e 2e | 38 5d 20 6f 66 20 69 6e |rray[1..|8] of in|
|00000f00| 74 65 67 65 72 3b 0d 09 | 09 09 09 75 49 32 3a 20 |teger;..|...uI2: |
|00000f10| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 75 49 34 |integer;|.....uI4|
|00000f20| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 09 09 75 |: longin|t;.....u|
|00000f30| 52 34 3a 20 72 65 61 6c | 3b 0d 09 09 09 09 75 52 |R4: real|;.....uR|
|00000f40| 38 3a 20 61 72 72 61 79 | 5b 31 2e 2e 34 5d 20 6f |8: array|[1..4] o|
|00000f50| 66 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 75 |f intege|r;.....u|
|00000f60| 52 31 30 3a 20 61 72 72 | 61 79 5b 31 2e 2e 35 5d |R10: arr|ay[1..5]|
|00000f70| 20 6f 66 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 | of inte|ger;....|
|00000f80| 09 75 52 31 32 3a 20 61 | 72 72 61 79 5b 31 2e 2e |.uR12: a|rray[1..|
|00000f90| 36 5d 20 6f 66 20 69 6e | 74 65 67 65 72 3b 0d 09 |6] of in|teger;..|
|00000fa0| 09 09 09 75 50 74 3a 20 | 50 6f 69 6e 74 3b 0d 09 |...uPt: |Point;..|
|00000fb0| 09 09 09 75 52 65 63 74 | 3a 20 52 65 63 74 3b 0d |...uRect|: Rect;.|
|00000fc0| 09 09 09 09 75 43 6f 6d | 6d 61 6e 64 3a 20 6c 6f |....uCom|mand: lo|
|00000fd0| 6e 67 69 6e 74 3b 0d 09 | 09 09 09 75 50 61 72 61 |ngint;..|...uPara|
|00000fe0| 6d 3a 20 61 72 72 61 79 | 5b 31 2e 2e 34 5d 20 6f |m: array|[1..4] o|
|00000ff0| 66 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 09 09 75 |f longin|t;.....u|
|00001000| 52 65 73 75 6c 74 3a 20 | 6c 6f 6e 67 69 6e 74 3b |Result: |longint;|
|00001010| 0d 09 09 09 09 75 4d 65 | 6e 75 49 44 3a 20 6c 6f |.....uMe|nuID: lo|
|00001020| 6e 67 69 6e 74 3b 0d 09 | 09 09 09 75 4d 65 6e 75 |ngint;..|...uMenu|
|00001030| 49 74 65 6d 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |Item: lo|ngint;..|
|00001040| 09 09 09 75 53 74 72 69 | 6e 67 3a 20 53 74 72 32 |...uStri|ng: Str2|
|00001050| 35 35 3b 0d 09 09 09 09 | 75 4e 61 6d 65 3a 20 53 |55;.....|uName: S|
|00001060| 74 72 32 35 35 3b 0d 09 | 09 09 09 75 52 47 42 3a |tr255;..|...uRGB:|
|00001070| 20 52 47 42 43 6f 6c 6f | 72 3b 0d 09 09 09 09 75 | RGBColo|r;.....u|
|00001080| 53 74 79 6c 65 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |Style: b|oolean;.|
|00001090| 09 09 09 09 75 49 31 3a | 20 62 6f 6f 6c 65 61 6e |....uI1:| boolean|
|000010a0| 3b 0d 09 09 09 09 75 49 | 38 3a 20 61 72 72 61 79 |;.....uI|8: array|
|000010b0| 5b 31 2e 2e 34 5d 20 6f | 66 20 69 6e 74 65 67 65 |[1..4] o|f intege|
|000010c0| 72 3b 0d 09 09 09 09 75 | 4d 65 6e 75 48 64 6c 3a |r;.....u|MenuHdl:|
|000010d0| 20 4d 65 6e 75 48 61 6e | 64 6c 65 3b 0d 7b 77 69 | MenuHan|dle;.{wi|
|000010e0| 6e 64 6f 77 2d 72 65 6c | 61 74 65 64 20 69 6e 66 |ndow-rel|ated inf|
|000010f0| 6f 7d 0d 09 09 09 09 76 | 48 65 61 64 3a 20 61 72 |o}.....v|Head: ar|
|00001100| 72 61 79 5b 31 2e 2e 38 | 5d 20 6f 66 20 69 6e 74 |ray[1..8|] of int|
|00001110| 65 67 65 72 3b 0d 09 09 | 09 09 76 45 72 72 3a 20 |eger;...|..vErr: |
|00001120| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 76 43 44 |integer;|.....vCD|
|00001130| 45 46 3a 20 50 72 6f 63 | 50 74 72 3b 0d 09 09 09 |EF: Proc|Ptr;....|
|00001140| 09 76 53 65 6c 65 63 74 | 43 74 6c 3a 20 43 6f 6e |.vSelect|Ctl: Con|
|00001150| 74 72 6f 6c 48 61 6e 64 | 6c 65 3b 0d 09 09 09 09 |trolHand|le;.....|
|00001160| 76 53 65 6c 65 63 74 52 | 65 63 3a 20 6c 6f 6e 67 |vSelectR|ec: long|
|00001170| 69 6e 74 3b 0d 09 09 09 | 09 76 53 65 6c 65 63 74 |int;....|.vSelect|
|00001180| 49 44 3a 20 69 6e 74 65 | 67 65 72 3b 0d 7b 69 6e |ID: inte|ger;.{in|
|00001190| 66 6f 20 72 65 74 75 72 | 6e 65 64 20 62 79 20 65 |fo retur|ned by e|
|000011a0| 6e 61 62 6c 65 64 20 69 | 74 65 6d 73 7d 0d 09 09 |nabled i|tems}...|
|000011b0| 09 09 77 69 48 69 74 3a | 20 69 6e 74 65 67 65 72 |..wiHit:| integer|
|000011c0| 3b 0d 09 09 09 09 77 76 | 48 69 74 3a 20 69 6e 74 |;.....wv|Hit: int|
|000011d0| 65 67 65 72 3b 0d 09 09 | 09 09 77 63 48 69 74 3a |eger;...|..wcHit:|
|000011e0| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 09 77 43 | integer|;.....wC|
|000011f0| 6c 69 63 6b 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |lick: in|teger;..|
|00001200| 09 09 09 77 45 76 65 6e | 74 3a 20 45 76 65 6e 74 |...wEven|t: Event|
|00001210| 52 65 63 6f 72 64 3b 0d | 7b 77 69 6e 64 6f 77 20 |Record;.|{window |
|00001220| 69 6e 66 6f 20 72 65 74 | 75 72 6e 65 64 20 62 79 |info ret|urned by|
|00001230| 20 47 65 74 57 6e 64 7d | 0d 09 09 09 09 77 57 69 | GetWnd}|.....wWi|
|00001240| 6e 64 6f 77 3a 20 57 69 | 6e 64 6f 77 50 74 72 3b |ndow: Wi|ndowPtr;|
|00001250| 0d 09 09 09 09 77 52 65 | 73 49 44 3a 20 69 6e 74 |.....wRe|sID: int|
|00001260| 65 67 65 72 3b 0d 09 09 | 09 09 77 43 6f 75 6e 74 |eger;...|..wCount|
|00001270| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 77 |: intege|r;.....w|
|00001280| 76 43 6f 75 6e 74 3a 20 | 69 6e 74 65 67 65 72 3b |vCount: |integer;|
|00001290| 0d 09 09 09 09 77 69 43 | 6f 75 6e 74 3a 20 69 6e |.....wiC|ount: in|
|000012a0| 74 65 67 65 72 3b 0d 7b | 63 6f 6e 74 72 6f 6c 20 |teger;.{|control |
|000012b0| 69 6e 66 6f 20 72 65 74 | 75 72 6e 65 64 20 62 79 |info ret|urned by|
|000012c0| 20 47 65 74 43 74 6c 7d | 0d 09 09 09 09 63 43 6f | GetCtl}|.....cCo|
|000012d0| 6e 74 72 6f 6c 3a 20 43 | 6f 6e 74 72 6f 6c 48 61 |ntrol: C|ontrolHa|
|000012e0| 6e 64 6c 65 3b 0d 09 09 | 09 09 63 69 49 6e 64 65 |ndle;...|..ciInde|
|000012f0| 78 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |x: integ|er;.....|
|00001300| 63 76 49 6e 64 65 78 3a | 20 69 6e 74 65 67 65 72 |cvIndex:| integer|
|00001310| 3b 0d 09 09 09 09 63 63 | 49 6e 64 65 78 3a 20 69 |;.....cc|Index: i|
|00001320| 6e 74 65 67 65 72 3b 0d | 09 09 09 09 63 42 61 73 |nteger;.|....cBas|
|00001330| 65 49 44 3a 20 69 6e 74 | 65 67 65 72 3b 0d 7b 69 |eID: int|eger;.{i|
|00001340| 6e 66 6f 20 63 6f 70 69 | 65 64 20 66 72 6f 6d 20 |nfo copi|ed from |
|00001350| 22 63 43 6f 6e 74 72 6f | 6c 22 20 62 6c 6f 63 6b |"cContro|l" block|
|00001360| 2e 2e 2e 7d 0d 09 09 09 | 09 63 4e 65 78 74 3a 20 |...}....|.cNext: |
|00001370| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 3b 0d 09 |ControlH|andle;..|
|00001380| 09 09 09 63 4f 77 6e 65 | 72 3a 20 57 69 6e 64 6f |...cOwne|r: Windo|
|00001390| 77 50 74 72 3b 0d 09 09 | 09 09 63 52 65 63 74 3a |wPtr;...|..cRect:|
|000013a0| 20 52 65 63 74 3b 0d 09 | 09 09 09 63 56 69 73 3a | Rect;..|...cVis:|
|000013b0| 20 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 09 09 63 48 | boolean|;.....cH|
|000013c0| 69 6c 69 74 65 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |ilite: b|oolean;.|
|000013d0| 09 09 09 09 63 56 61 6c | 75 65 3a 20 69 6e 74 65 |....cVal|ue: inte|
|000013e0| 67 65 72 3b 0d 09 09 09 | 09 63 4d 69 6e 3a 20 69 |ger;....|.cMin: i|
|000013f0| 6e 74 65 67 65 72 3b 0d | 09 09 09 09 63 4d 61 78 |nteger;.|....cMax|
|00001400| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 63 |: intege|r;.....c|
|00001410| 49 6e 66 6f 3a 20 48 61 | 6e 64 6c 65 3b 0d 09 09 |Info: Ha|ndle;...|
|00001420| 09 09 63 4c 6f 44 61 74 | 61 3a 20 48 61 6e 64 6c |..cLoDat|a: Handl|
|00001430| 65 3b 0d 09 09 09 09 63 | 41 63 74 69 6f 6e 3a 20 |e;.....c|Action: |
|00001440| 50 72 6f 63 50 74 72 3b | 0d 09 09 09 09 63 52 65 |ProcPtr;|.....cRe|
|00001450| 66 43 6f 6e 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |fCon: lo|ngint;..|
|00001460| 09 09 09 63 54 69 74 6c | 65 3a 20 53 74 72 32 35 |...cTitl|e: Str25|
|00001470| 35 3b 0d 7b 69 6e 66 6f | 20 63 6f 70 69 65 64 20 |5;.{info| copied |
|00001480| 66 72 6f 6d 20 22 63 49 | 6e 66 6f 22 20 62 6c 6f |from "cI|nfo" blo|
|00001490| 63 6b 2e 2e 2e 7d 0d 09 | 09 09 09 63 53 74 75 66 |ck...}..|...cStuf|
|000014a0| 66 3a 20 61 72 72 61 79 | 5b 31 2e 2e 36 5d 20 6f |f: array|[1..6] o|
|000014b0| 66 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 63 |f intege|r;.....c|
|000014c0| 54 6d 70 6c 52 65 66 43 | 6f 6e 3a 20 6c 6f 6e 67 |TmplRefC|on: long|
|000014d0| 69 6e 74 3b 0d 09 09 09 | 09 63 50 74 72 3a 20 50 |int;....|.cPtr: P|
|000014e0| 74 72 3b 0d 09 09 09 09 | 63 48 69 44 61 74 61 3a |tr;.....|cHiData:|
|000014f0| 20 48 61 6e 64 6c 65 3b | 0d 09 09 09 09 63 56 69 | Handle;|.....cVi|
|00001500| 65 77 3a 20 43 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |ew: Cont|rolHandl|
|00001510| 65 3b 0d 09 09 09 09 63 | 4f 6c 64 52 65 63 74 3a |e;.....c|OldRect:|
|00001520| 20 52 65 63 74 3b 0d 09 | 09 09 09 63 43 6c 69 70 | Rect;..|...cClip|
|00001530| 3a 20 52 65 63 74 3b 0d | 09 09 09 09 63 43 6f 6e |: Rect;.|....cCon|
|00001540| 74 65 6e 74 3a 20 52 65 | 63 74 3b 0d 09 09 09 09 |tent: Re|ct;.....|
|00001550| 63 4c 69 6d 69 74 3a 20 | 52 65 63 74 3b 0d 09 09 |cLimit: |Rect;...|
|00001560| 09 09 63 54 79 70 65 3a | 20 6c 6f 6e 67 69 6e 74 |..cType:| longint|
|00001570| 3b 0d 09 09 09 09 63 56 | 61 72 43 6f 64 65 3a 20 |;.....cV|arCode: |
|00001580| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 63 52 65 |integer;|.....cRe|
|00001590| 73 54 79 70 65 3a 20 52 | 65 73 54 79 70 65 3b 0d |sType: R|esType;.|
|000015a0| 09 09 09 09 63 52 65 73 | 49 44 3a 20 69 6e 74 65 |....cRes|ID: inte|
|000015b0| 67 65 72 3b 0d 09 09 09 | 09 63 52 65 73 48 64 6c |ger;....|.cResHdl|
|000015c0| 3a 20 48 61 6e 64 6c 65 | 3b 0d 09 09 09 09 63 50 |: Handle|;.....cP|
|000015d0| 72 69 76 61 74 65 3a 20 | 6c 6f 6e 67 69 6e 74 3b |rivate: |longint;|
|000015e0| 0d 09 09 09 09 63 53 63 | 72 49 6e 63 3a 20 62 6f |.....cSc|rInc: bo|
|000015f0| 6f 6c 65 61 6e 3b 0d 09 | 09 09 09 63 43 6d 64 4b |olean;..|...cCmdK|
|00001600| 65 79 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 09 09 |ey: bool|ean;....|
|00001610| 09 63 50 6e 52 6f 75 6e | 64 3a 20 69 6e 74 65 67 |.cPnRoun|d: integ|
|00001620| 65 72 3b 0d 09 09 09 09 | 63 50 6e 53 69 7a 65 3a |er;.....|cPnSize:|
|00001630| 20 50 6f 69 6e 74 3b 0d | 09 09 09 09 63 54 78 4a | Point;.|....cTxJ|
|00001640| 75 73 74 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |ust: boo|lean;...|
|00001650| 09 09 63 54 78 46 61 63 | 65 3a 20 62 6f 6f 6c 65 |..cTxFac|e: boole|
|00001660| 61 6e 3b 0d 09 09 09 09 | 63 54 78 53 69 7a 65 3a |an;.....|cTxSize:|
|00001670| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 09 63 54 | integer|;.....cT|
|00001680| 78 46 6f 6e 74 3a 20 69 | 6e 74 65 67 65 72 3b 0d |xFont: i|nteger;.|
|00001690| 09 09 09 09 63 44 61 74 | 61 54 79 70 65 3a 20 69 |....cDat|aType: i|
|000016a0| 6e 74 65 67 65 72 3b 0d | 09 09 09 09 63 44 61 74 |nteger;.|....cDat|
|000016b0| 61 44 69 67 69 74 73 3a | 20 62 6f 6f 6c 65 61 6e |aDigits:| boolean|
|000016c0| 3b 0d 09 09 09 09 63 44 | 61 74 61 46 6f 72 6d 61 |;.....cD|ataForma|
|000016d0| 74 3a 20 62 6f 6f 6c 65 | 61 6e 3b 0d 09 09 09 09 |t: boole|an;.....|
|000016e0| 63 44 61 74 61 4f 66 66 | 73 65 74 3a 20 69 6e 74 |cDataOff|set: int|
|000016f0| 65 67 65 72 3b 0d 09 09 | 09 09 63 44 61 74 61 50 |eger;...|..cDataP|
|00001700| 74 72 3a 20 50 74 72 3b | 0d 09 09 09 09 63 53 74 |tr: Ptr;|.....cSt|
|00001710| 6f 72 54 79 70 65 3a 20 | 69 6e 74 65 67 65 72 3b |orType: |integer;|
|00001720| 0d 09 09 09 09 63 53 74 | 6f 72 50 74 72 3a 20 6c |.....cSt|orPtr: l|
|00001730| 6f 6e 67 69 6e 74 3b 0d | 09 09 09 09 63 43 6f 6c |ongint;.|....cCol|
|00001740| 6f 72 73 3a 20 43 43 54 | 61 62 48 61 6e 64 6c 65 |ors: CCT|abHandle|
|00001750| 3b 0d 09 09 09 09 63 4f | 76 65 72 72 69 64 65 3a |;.....cO|verride:|
|00001760| 20 50 72 6f 63 50 74 72 | 3b 0d 09 09 09 09 63 43 | ProcPtr|;.....cC|
|00001770| 6f 75 6e 74 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |ount: in|teger;..|
|00001780| 09 09 09 63 53 74 72 69 | 6e 67 3a 20 53 74 72 32 |...cStri|ng: Str2|
|00001790| 35 35 3b 0d 7b 70 72 69 | 76 61 74 65 20 64 65 62 |55;.{pri|vate deb|
|000017a0| 75 67 67 69 6e 67 20 74 | 61 62 6c 65 7d 0d 09 09 |ugging t|able}...|
|000017b0| 09 09 78 45 6e 74 72 69 | 65 73 3a 20 69 6e 74 65 |..xEntri|es: inte|
|000017c0| 67 65 72 3b 0d 09 09 09 | 09 78 54 61 62 6c 65 3a |ger;....|.xTable:|
|000017d0| 20 61 72 72 61 79 5b 31 | 2e 2e 34 30 5d 20 6f 66 | array[1|..40] of|
|000017e0| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 09 65 6e 64 | longint|;....end|
|000017f0| 3b 0d 0d 69 6d 70 6c 65 | 6d 65 6e 74 61 74 69 6f |;..imple|mentatio|
|00001800| 6e 0d 0d 65 6e 64 2e 00 | 00 00 00 00 00 00 00 00 |n..end..|........|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001890| 72 72 69 64 65 3a 20 50 | 72 6f 63 50 74 72 3b 0d |rride: P|rocPtr;.|
|000018a0| 09 09 09 09 63 43 6f 75 | 6e 74 3a 20 69 6e 74 65 |....cCou|nt: inte|
|000018b0| 0c 46 61 63 65 53 74 6f | 72 4d 50 2e 70 37 02 00 |.FaceSto|rMP.p7..|
|000018c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000018d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 aa 02 9a 67 00 00 | 00 00 00 00 01 7e 09 78 |.....g..|.....~.x|
|00001900| 54 61 62 6c 65 3a 20 61 | 72 72 61 79 5b 31 2e 2e |Table: a|rray[1..|
|00001910| 34 30 5d 20 6f 66 20 6c | 6f 6e 67 69 6e 74 3b 0d |40] of l|ongint;.|
|00001920| 09 09 09 65 6e 64 3b 0d | 0d 69 6d 70 6c 65 6d 65 |...end;.|.impleme|
|00001930| 6e 74 61 74 69 6f 6e 0d | 0d 65 6e 64 2e db 6d b6 |ntation.|.end..m.|
|00001940| db 6d b6 db 6d b6 db 6d | b6 db 6d b6 db 6d b6 db |.m..m..m|..m..m..|
|00001950| 6d b6 db 6d b6 db 6d b6 | db 6d b6 db 6d b6 db 6d |m..m..m.|.m..m..m|
|00001960| b6 db 6d b6 db 6d b6 db | 6d b6 db 6d b6 db 6d b6 |..m..m..|m..m..m.|
|00001970| db 6d b6 db 6d b6 db 6d | b6 db 6d b6 db 6d b6 db |.m..m..m|..m..m..|
|00001980| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 03 | 00 02 00 28 00 0a 01 4f |........|...(...O|
|000019b0| 01 76 00 28 00 0a 01 4f | 01 76 a9 ce e3 8f 00 00 |.v.(...O|.v......|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000019d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 cd fc ec |...L...L|...2....|
|000019e0| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|000019f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+